home *** CD-ROM | disk | FTP | other *** search
/ Point Programming 1 / PPROG1.ISO / pascal / swag / cursor.swg / 0007_Find The Cursor.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-05-28  |  263 b   |  17 lines
  1. Uses
  2.   Dos;
  3.  
  4. Procedure FindXY(Var X, Y : Byte; Page : Byte);
  5. {X = Row of Cursor}
  6. {Y = Colum of Cursor}
  7. {Page = Page Nummber}
  8. Var
  9.   Regs : Registers;
  10. begin
  11.   Regs.Ah := 3;
  12.   Regs.Bh := Page;
  13.   intr($10, Regs);
  14.   X := Regs.Dl;
  15.   Y := Regs.Dh;
  16. end;
  17.